in progress/BOGGLE/bigrams.R

In vdweijer/games: Functions for word games.

tmp=sapply(1:length(dutch),function(j){for(i in 1:(nchar(dutch[j])-1))

   {if(substr(dutch[j],i,1)=="a")
      {substr(dutch[j],i,2)}}},simplify=F)

sapply(1:length(dutch),function(j){if(substr(dutch[j],nchar(dutch[j]),1)=="a")
      {cat(substr(dutch[j],i,2))}})

j=1;i=1:nchar(dutch[j])
sapply(1:(nchar(dutch[1])),function(i){ifelse(i==(nchar(dutch[1])), substr(dutch[1],i,1),  substr(dutch[1],i,2))})

tmp=do.call(rbind,lapply(sapply(1:length(dutch),function(j){
sapply(1:(nchar(dutch[j])), function(i) {ifelse(i==(nchar(dutch[j])), paste(substr(dutch[j],i,i),"$",sep=""),  substr(dutch[j],i,(i+1)))})}),cbind))